unit KRK.Components.AdditionalControls.Register;

interface

uses Classes, DesignIntf;

procedure Register;

implementation

uses Controls
   , KRK.Components.AdditionalControls.BalloonHint
   , KRK.Components.AdditionalControls.PngSpeedButton
   , KRK.Components.AdditionalControls.PngBitBtn
   , KRK.Components.AdditionalControls.PngCheckListBox
   , KRK.Components.AdditionalControls.ComponentEditors
   , KRK.Components.AdditionalControls.PngImageList
   , KRK.Components.AdditionalControls.LabeledEdit
   , KRK.Components.AdditionalControls.RTFLabel
   , KRK.Components.AdditionalControls.RTFLabel.CaptionEditor
   , KRK.Components.AdditionalControls.DefinedCrypt;

const
  PageName = 'Anak Krakatoa Additional Controls';

procedure Register;
begin
  RegisterComponents(PageName,[TKRKBalloonHint]);

  RegisterComponents(PageName, [TKRKPngSpeedButton, TKRKPngBitBtn, TKRKPngCheckListBox, TKRKPngImageList, TKRKPngImageCollection]);

  RegisterComponents(PageName, [TKRKLabeledEdit]);

  RegisterComponents(PageName, [TRTFLabel]);

  RegisterComponents(PageName, [TDefinedCrypt]);

  RegisterComponentEditor(TKRKPngImageList, TKRKPngImageListEditor);
  RegisterComponentEditor(TKRKPngImageCollection, TKRKPngImageCollectionEditor);
  RegisterComponentEditor(TKRKPngBitBtn, TKRKPngButtonEditor);
  RegisterComponentEditor(TKRKPngSpeedButton, TKRKPngButtonEditor);

  RegisterPropertyEditor(TypeInfo(TKRKPngImageCollectionItems), TKRKPngImageList,'PngImages', TKRKPngImageListImagesEditor); // do not localize
  RegisterPropertyEditor(TypeInfo(TKRKPngImageCollectionItems), TKRKPngImageCollection, 'Items', TKRKPngImageCollectionItemsEditor); // do not localize
  RegisterPropertyEditor(TypeInfo(TCaption), TRTFLabel, 'Caption', TRTFLabelCaptionEditor);

  { Escondendo propriedades que precisam ser omitidas }
  UnlistPublishedProperty(TKRKPngSpeedButton, 'NumGlyphs'); // do not localize
  UnlistPublishedProperty(TKRKPngSpeedButton, 'Glyph'); // do not localize
  UnlistPublishedProperty(TKRKPngBitBtn, 'NumGlyphs'); // do not localize
  UnlistPublishedProperty(TKRKPngBitBtn, 'Glyph'); // do not localize
end;

end.
